home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 94 / 64er_Magazin_Sonderheft_94_19xx_Markt__Technik_de_Side_A.d64 / turtle-demo 6 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  534b  |  19 lines
  1. 1 rem turtle-demo: 'tunnel'
  2. 2 rem n. heusler 11.91
  3. 3 :
  4. 10 sys49152
  5. 20 !graphics:!init
  6. 30 ux=140:uy=110:ua=  0:gosub200
  7. 40 ux=180:uy=100:ua=180:gosub200
  8. 50 !finish
  9. 60 :
  10. 200 fg=12:!pen0:!moveux,uy:!angleua:!pen1
  11. 210 !walkfg:!turnl10:fg=fg-.029:iffg>1then210
  12. 220 s=cos(ua/180*(NULL)):!pen0:!moveux-58*s,uy+27*s:an=323+ua:!pen1
  13. 230 fori=1to26:!anglean:!walk4:an=an+3.3:next
  14. 240 !pen0:!moveux-61*s,uy+30*s:an=35+ua:!pen1
  15. 250 fori=1to26:!anglean:!walk3:an=an+2.1:next
  16. 260 !pen0:!moveux-50*s,uy+35*s:an=273+ua:!pen1
  17. 270 fori=1to21:!anglean:!walk3:an=an+3.2:next
  18. 280 return
  19.